﻿Public Class masfeeling
    Private feelID = Nothing
    Private feelING = Nothing
    Private feelIMG = Nothing
    Private selectMasfeeling = "SELECT `feelid` as 'รหัสอารมณ์', `feeling` as 'ภาวะอารมณ์', `feelimg` as 'ภาพประกอบ' FROM masfeeling"
    Dim connect As CONDB = CONDB.NewConnection()
    'Dim connectlocal As conlocal = conlocal.NewConnection

    Property feelID_ As Integer
        Get
            Return feelID
        End Get
        Set(value As Integer)
            feelID = value
        End Set
    End Property

    Property feelING_ As String
        Get
            Return feelING
        End Get
        Set(value As String)
            feelING = value
        End Set
    End Property

    Property feelIMG_ As Integer
        Get
            Return feelIMG
        End Get
        Set(value As Integer)
            feelIMG = value
        End Set
    End Property

    Property selectMasfeeling_ As String
        Get
            Return selectMasfeeling
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub insertMasfeelingData()
        If feelING <> "" Then
            If TypeOf feelING Is String Then
                If connect.GetTable("SELECT feelID FROM masfeeling WHERE feeling = '" & feelING & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูลอารมณ์นี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()
                        Dim feelingID As Integer

                        feelingID = connect.ExecuteScalar("INSERT INTO masfeeling (feeling, feelimg) VALUES ('" & feelING & "', '" & feelIMG & "'); SELECT LAST_INSERT_ID();")
                        'connectlocal.ExecuteNonQuery("INSERT INTO MASFEELING (FEELID, FEELING, FEELIMG) VALUES ('" & feelingID & "', '" & feelING & "', '" & feelIMG & "')")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูลอารมณ์ผู้ป่วยเรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีข้อมูลอารมณ์ผู้ป่วยนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try
                    connect.Dispose()
                    'connectlocal.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

    Public Sub editMasfeelingData()
        If feelID > 0 And feelING <> "" Then
            If TypeOf feelING Is String Then
                Try
                    connect = CONDB.NewConnection()
                    'connectlocal = conlocal.NewConnection()

                    connect.ExecuteNonQuery("UPDATE masfeeling SET feeling = '" & feelING & "', feelimg = '" & feelIMG & "' WHERE feelid = '" & feelID & "'")
                    'connectlocal.ExecuteNonQuery("UPDATE MASFEELING SET FEELING = '" & feelING & "', FEELIMG = '" & feelIMG & "' WHERE FEELID = '" & feelID & "'")
                    MsgBox("ท่านได้ทำการแก้ไขข้อมูลอารมณ์ผู้ป่วยเรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox("มีเลขรหัสตำแหน่งนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                End Try

                connect.Dispose()
                'connectlocal.Dispose()
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub
End Class
